home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 June / EnigmA AMIGA RUN 08 (1996)(G.R. Edizioni)(IT)[!][issue 1996-06][EARSAN CD VII].iso / earcd / utmisc1 / ambrk186.lha / AmiBroker186PL / ARexxDemo.abrx < prev    next >
Text File  |  1996-03-18  |  3KB  |  119 lines
  1. /*           ARexxDemo.abrx
  2. **
  3. **           This one is very simple AmiBroker & ARexx demonstration script
  4. **
  5. **           Copyright (C)1995 by Tomasz Janeczko
  6. **
  7. **           You have my permission to use and modify this file
  8. **           when writing your custom ARexx scripts.
  9. **
  10. */
  11.  
  12. address AMIBROKER.1     /* assumes there's only one copy of program */
  13. options results
  14.  
  15. 'SCREEN FRONT'          /* make sure we're at the top */
  16.  
  17. 'DATABASE STATUS'       /* check if database has been changed to allow clean exit */
  18.  
  19. isChanged = result
  20.  
  21. 'VERSION'               /* get program version ID */
  22.  
  23. 'REQUEST BODY "Wita Cië ' || result || '" TITLE "Demonstracja ARexx-a" BUTTONS "Start!"'
  24.  
  25. 'REQUEST BODY "Teraz, jeôli pozwolisz,|pokaûë Ci kilka ciekawych moûliwoôci|wykorzystania AmiBrokera i ARexxa" BUTTONS="Pokaû|Zakoïcz"'
  26.  
  27. if (result = 0) THEN
  28.                  DO
  29.                   'REQUEST BODY "Czy na pewno chcesz|zakoïczyê demonstracjë?" TITLE="Pytanie" BUTTONS="Tak!|Nie!"'
  30.                   if (result = 1) THEN EXIT
  31.                  END
  32.  
  33. 'REQUEST BODY "Na poczâtek wybiorë WIG" BUTTONS="Niech bëdzie"'
  34.  
  35. 'SELECT STOCK WIG'
  36.  
  37. 'REQUEST BODY "I zaznaczë notowanie"'
  38.  
  39. 'SELECT DATE 95-09-01'
  40.  
  41. 'REQUEST BODY "A teraz poprzesuwam wskaúnik w prawo i lewo"'
  42.  
  43. do day = 1 to 31
  44.    'SELECT DATE 95-09-' || day
  45. end
  46.  
  47. do day = 1 to 31
  48.    'SELECT DATE 95-10-' || day
  49. end
  50.  
  51. do day = 1 to 31
  52.    'SELECT DATE 95-10-' || 32-day
  53. end
  54.  
  55. do day = 1 to 31
  56.    'SELECT DATE 95-09-' || 32-day
  57. end
  58.  
  59. 'REQUEST BODY "Teraz dodam spóîkë AMIGA do listy" BUTTONS="Dodaj"'
  60.  
  61. 'ADDSTOCK AMIGA'
  62.  
  63. 'SELECT STOCK AMIGA'
  64.  
  65. 'REQUEST BODY "Trochë pusto na tym wykresie...|Wprowadzë wiëc nieco notowaï"'
  66.  
  67. price = 20;
  68.  
  69. /* now add some random prices */
  70.  
  71. do day = 1 to 30
  72.  price = price + (RANDOM()/500 - 1)
  73.  volume = 100*RANDOM()
  74.  'ADDQUOTATION AMIGA DATE=95-10-' || day || ' VOLUME=' || volume || ' PRICE=' || price
  75. end
  76.  
  77. do day = 1 to 30
  78.  price = price + (RANDOM()/500 - 1)
  79.  volume = 100*RANDOM()
  80.  'ADDQUOTATION AMIGA DATE=95-11-' || day || ' VOLUME=' || volume || ' PRICE=' || price
  81. end
  82.  
  83. do day = 1 to 30
  84.  price = price + (RANDOM()/500 - 1)
  85.  volume = 100*RANDOM()
  86.  'ADDQUOTATION AMIGA DATE=95-12-' || day || ' VOLUME=' || volume || ' PRICE=' || price
  87. end
  88.  
  89. 'REFRESH'
  90.  
  91. 'REQUEST BODY "No i jak Ci sië to podoba?|Swojâ drogâ to ciekawe jak `naturalnie`|wyglâdajâ losowe dane"'
  92.  
  93.  
  94. 'REQUEST BODY "A teraz usunë spóîkë AMIGA z listy" BUTTONS="Ok!"'
  95.  
  96. 'REMSTOCK AMIGA'
  97.  
  98. 'REQUEST BODY "AmiBroker obsîuguje juû notowania ciâgîe.|Weúmy na przykîad firmë APPLE notowanâ na Wall Street"'
  99.  
  100. /* add stock and import quotations in ASCII format */
  101.  
  102. 'ADDSTOCK APPLE CONT'
  103.  
  104. 'SELECT STOCK=APPLE'
  105.  
  106. 'REQUEST BODY "Teraz wczytam notowania tej spóîki z pliku ASCII !"'
  107.  
  108. 'IMPORT ASCII FILE=Examples/Apple'
  109.  
  110. 'REQUEST BODY "To co teraz widzisz to wykres `ôwiecowy`|czyli Japanese Candlesticks.|Widaê na nim kursy otwarcia,zamkniëcia|najwyûszy i najniûszy kurs dnia"'
  111.  
  112. 'REQUEST BODY "Teraz usunë spóîkë APPLE z listy"'
  113.  
  114. 'REMSTOCK APPLE'
  115.  
  116. 'REQUEST BODY="Dziëkujë Ci za uwagë,|to juû koniec prezentacji.||(C)1995 Tomasz Janeczko"'
  117.  
  118. if( isChanged = 0 ) then 'DATABASE NOCHANGE'   /* cleanup */
  119.